home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d949.lha / BBBBS / BBBBS65.lha / rexx / bbsLOGON.baud < prev    next >
Text File  |  1993-09-07  |  2KB  |  45 lines
  1. /* $VER: bbsLOGON.baud 6.3 (7.9.93)
  2.  
  3. UUCP Procedure?  This MIGHT work, I have no easy way to test.
  4.   bbsLOGON.baud (and thus BBBBS) is blocked until UUCico returns. Getty
  5.    is not required, instead logon BBBBS as a new user under the uucp
  6.    username. Enter the uucp password for password. Skip the birthday
  7.    questions so that the BIRTHDAY: field is blank. BBBBS will answer the
  8.    call, check the password, and then call this program. If it is a
  9.    valid uucp call, UUCICO is run. First, we check to see if "name" is
  10.    a valid UUCP username (BBBBS has already checked the password).
  11.    If no match is found, we return 0 so BBBBS can continue. Otherwise,
  12.    we wait for UUCICO to do it's thing and return a 1 to BBBBS so it
  13.    will reset for the next caller.
  14. */
  15.  
  16. CR='0D'x
  17. match=0
  18.  
  19. PARSE ARG name level .
  20. CALL PRAGMA('W','N')    /* Turn DOS requesters OFF */
  21. IF ~EXISTS('UUCP:') THEN EXIT 0
  22.  
  23. x=OPEN(f,'GETTY:PASSWD','R')
  24. IF x=0 THEN
  25.   DO
  26.     SAY '*** Could not open GETTY:PASSWD file!'CR
  27.     EXIT 0
  28.   END
  29. dat1=READCH(f,65000)
  30. CALL CLOSE(f)
  31. dat2=TRANSLATE(UPPER(dat1),'  ','0A'x||',')
  32. match=FIND(dat2,name)
  33. IF match=0 THEN EXIT 0                 /* no match, must be BBS call */
  34.  
  35. Quiet ON                               /* BB disabled */
  36. CALL DELAY(28)                         /* but apparently not instantly */
  37. ADDRESS COMMAND 'UUCP:C/UUCico -Getty' /* call UUCICO & wait for return */
  38. CALL DELAY(28)                         /* delay may not be needed */
  39. ADDRESS BAUD                           /* probably redundant */
  40. Quiet OFF                              /* BB enabled */
  41. CALL DELAY(28)                         /* likely some delay needed here */
  42. EXIT 1                                 /* RETURN 1 to tell BBBBS to reset */
  43.  
  44. /* bbsLOGON.baud */
  45.